home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / intro.dxr / 00045_BeginScript.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  3.0 KB  |  98 lines
  1. on exitFrame
  2.   if (the mouseCast = 60) or (the mouseCast = 62) then
  3.     if the visible of sprite 16 = 0 then
  4.       set the visible of sprite 16 to 1
  5.     end if
  6.   else
  7.     set the visible of sprite 16 to 0
  8.   end if
  9.   if the mouseCast = 2 then
  10.     set the visible of sprite 2 to 0
  11.     set the visible of sprite 3 to 1
  12.     set the visible of sprite 4 to 1
  13.     set the visible of sprite 5 to 1
  14.     set the visible of sprite 6 to 1
  15.     set the visible of sprite 7 to 0
  16.     set the visible of sprite 8 to 0
  17.     set the visible of sprite 9 to 0
  18.   end if
  19.   if the mouseCast = 3 then
  20.     set the visible of sprite 2 to 1
  21.     set the visible of sprite 3 to 0
  22.     set the visible of sprite 4 to 1
  23.     set the visible of sprite 5 to 1
  24.     set the visible of sprite 6 to 0
  25.     set the visible of sprite 7 to 1
  26.     set the visible of sprite 8 to 0
  27.     set the visible of sprite 9 to 0
  28.   end if
  29.   if the mouseCast = 4 then
  30.     set the visible of sprite 2 to 1
  31.     set the visible of sprite 3 to 1
  32.     set the visible of sprite 4 to 0
  33.     set the visible of sprite 5 to 1
  34.     set the visible of sprite 6 to 0
  35.     set the visible of sprite 7 to 0
  36.     set the visible of sprite 8 to 1
  37.     set the visible of sprite 9 to 0
  38.   end if
  39.   if the mouseCast = 5 then
  40.     set the visible of sprite 2 to 1
  41.     set the visible of sprite 3 to 1
  42.     set the visible of sprite 4 to 1
  43.     set the visible of sprite 5 to 0
  44.     set the visible of sprite 6 to 0
  45.     set the visible of sprite 7 to 0
  46.     set the visible of sprite 8 to 0
  47.     set the visible of sprite 9 to 1
  48.   end if
  49.   if (the mouseCast < 2) or (the mouseCast > 9) then
  50.     set cena to random(4)
  51.     startTimer()
  52.     if cena = 1 then
  53.       set the visible of sprite 2 to 0
  54.       set the visible of sprite 3 to 1
  55.       set the visible of sprite 4 to 1
  56.       set the visible of sprite 5 to 1
  57.       set the visible of sprite 6 to 1
  58.       set the visible of sprite 7 to 0
  59.       set the visible of sprite 8 to 0
  60.       set the visible of sprite 9 to 0
  61.     end if
  62.     if cena = 2 then
  63.       set the visible of sprite 2 to 1
  64.       set the visible of sprite 3 to 0
  65.       set the visible of sprite 4 to 1
  66.       set the visible of sprite 5 to 1
  67.       set the visible of sprite 6 to 0
  68.       set the visible of sprite 7 to 1
  69.       set the visible of sprite 8 to 0
  70.       set the visible of sprite 9 to 0
  71.     end if
  72.     if cena = 3 then
  73.       set the visible of sprite 2 to 1
  74.       set the visible of sprite 3 to 1
  75.       set the visible of sprite 4 to 0
  76.       set the visible of sprite 5 to 1
  77.       set the visible of sprite 6 to 0
  78.       set the visible of sprite 7 to 0
  79.       set the visible of sprite 8 to 1
  80.       set the visible of sprite 9 to 0
  81.     end if
  82.     if cena = 4 then
  83.       set the visible of sprite 2 to 1
  84.       set the visible of sprite 3 to 1
  85.       set the visible of sprite 4 to 1
  86.       set the visible of sprite 5 to 0
  87.       set the visible of sprite 6 to 0
  88.       set the visible of sprite 7 to 0
  89.       set the visible of sprite 8 to 0
  90.       set the visible of sprite 9 to 1
  91.     end if
  92.     repeat while the timer < 10
  93.       nothing()
  94.     end repeat
  95.   end if
  96.   go("Begin")
  97. end
  98.